#!/usr/bin/perl -w
package clreqd_modules;

use XML::Parser;
use Data::Dumper;
use nethardware;		# Network probing routines

use strict;

my $error_str;
my $top_config;

sub get_nethardware {
my %ARGS=@_;
my $hw;

	$hw=new nethardware();
	if(!defined($hw)) {
		return "FAIL Unable to probe network hardware.";
	}
	return "OK ".join(",",$hw->list());
}

1;

